Developer CD Series 1995 February: Tool Chest/Dev.CD Feb 95/Dev.CD Feb 95.toast/Tool Chest/Development Tools & Languages/Dylan Related/MacMarlais 0.5.4 ƒ/DIRM Examples/module-test.dyl

Text File | 1994-09-20 | 526 b | 28 lines | [TEXT/Mrls]

module:    dylan-user

// testing a class defined within a module.

define module Test
    use dylan, export: all;

    export <test>, main;
end module Test;

define abstract class <abstract-test> (<object>) end class;

define class <test> (<abstract-test>)
    slot needs-initializing :: <integer>,
      required-init-keyword: ni:;
end class;

define method initialize (self :: <test>, #key ni (10))
    next-method();
    self.needs-initializing := ni;
end method;

define method main ()
    print(make(<test>, ni: 20));
end method;

main();